home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
mathfl
/
mf_limit.frm
< prev
next >
Wrap
Text File
|
1995-12-05
|
3KB
|
132 lines
VERSION 2.00
Begin Form limit
Caption = "Change Limits"
ClientHeight = 2820
ClientLeft = 1665
ClientTop = 1740
ClientWidth = 6585
Height = 3225
Icon = MF_LIMIT.FRX:0000
Left = 1605
LinkMode = 1 'Source
LinkTopic = "Form2"
ScaleHeight = 2820
ScaleWidth = 6585
Top = 1395
Width = 6705
Begin TextBox stud_name
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 2760
TabIndex = 0
Text = " "
Top = 240
Width = 1575
End
Begin SpinButton Spin2
Height = 615
Left = 4080
Top = 1080
Width = 495
End
Begin CommandButton Command1
Caption = "Accept Parameters"
Default = -1 'True
Height = 615
Left = 2040
TabIndex = 2
Top = 2040
Width = 2055
End
Begin Label upper
Caption = " "
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 2760
TabIndex = 5
Top = 1080
Width = 1215
End
Begin Label Label1
Caption = "Upper limit = 10 draws objects on screen."
Height = 615
Left = 4800
TabIndex = 4
Top = 1080
Width = 1695
End
Begin Label Label3
Caption = "Enter Student Name Here"
Height = 255
Left = 240
TabIndex = 3
Top = 240
Width = 2295
End
Begin Label Label2
Caption = "Upper Limit of Numbers"
Height = 255
Left = 360
TabIndex = 1
Top = 1200
Width = 2295
End
End
Sub Command1_Click ()
If stud_name.Text = "" Then
MsgBox "Please enter a name for the student."
limit.Show
stud_name.SetFocus
Exit Sub
End If
student_name = LTrim$(stud_name.Text)
upper_limit = Val(upper.Caption)
main.Show
End Sub
Sub form_load ()
If upper_limit = 0 Then
upper.Caption = "10"
Else
upper.Caption = Str$(upper_limit)
End If
If student_name <> " " Then
stud_name.Text = student_name
End If
End Sub
Sub Spin2_SpinDown ()
upper.Caption = Str$(Val(upper.Caption) - 10)
If Val(upper.Caption) < 10 Then
upper.Caption = " 10"
End If
upper.Refresh
End Sub
Sub Spin2_SpinUp ()
upper.Caption = Str$(Val(upper.Caption) + 10)
If Val(upper.Caption) = 110 Then
upper.Caption = " 100"
End If
upper.Refresh
End Sub
Sub upper_GotFocus ()
stud_name.SetFocus
End Sub